' 创建Shell对象
Set ws = CreateObject("Wscript.Shell")

' 执行命令并传入URL变量
ws.Run "cmd /c vlc.bat" , vbHide